home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / ctlib100.zip / INSTALL.LZH / TESTS.PAS < prev    next >
Pascal/Delphi Source File  |  1996-10-12  |  1KB  |  32 lines
  1. {**************************************************************************}
  2. {*  BitSoft Development, L.L.C.                                           *}
  3. {*  Copyright (C) 1995, 1996 BitSoft Development, L.L.C.                  *}
  4. {*  All rights reserved.                                                  *}
  5. {**************************************************************************}
  6.  
  7. program ContainersTests;
  8.  
  9. { This program tests all objects in the containers hierarchy.  To have the
  10.   objects display error messages, you must compile the library using the
  11.   cdDebug global conditional define. }
  12.  
  13. uses Main;
  14.  
  15. var
  16.   App : TContainersDemo;
  17.   SaveMem : LongInt;
  18.  
  19. begin
  20.   SaveMem := MemAvail;
  21.   App.Init;
  22.   App.Run;
  23.   App.Done;
  24.   if MemAvail <> SaveMem
  25.     then begin
  26.            Writeln('Not all memory deallocated: ', SaveMem - MemAvail,
  27.              ' bytes.');
  28.            Writeln;
  29.            Writeln('(press ENTER to continue)');
  30.            readln;
  31.          end; { if }
  32. end.